home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / GSSLEN.for < prev    next >
Text File  |  1991-05-22  |  338b  |  17 lines
  1.     REAL FUNCTION GSSLEN(NCHARS)
  2.         IMPLICIT NONE
  3.         INTEGER NCHARS
  4.         REAL GSCWID
  5. C
  6. C    This function returns the length in virtual coordinates of
  7. C     a string of length NCHARS. The current character size is assumed.
  8. C
  9.     INCLUDE DIGLIB$KOM:GCCPAR.PRM
  10. C
  11.     EXTERNAL LEN
  12.     INTEGER LEN
  13. C
  14.     GSSLEN = (GSCWID()*CSIZE)*NCHARS
  15.     RETURN
  16.     END
  17.